home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / MyConnecti2048092162007.psc / Class Modules / MyField.cls < prev    next >
Text File  |  2007-02-16  |  2KB  |  91 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "MyField"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. 'Written by Mehmet Gⁿrevin :)
  15.  
  16. Option Explicit
  17.  
  18. Private local_FieldType                              As VbVarType
  19. Private local_FieldLength                            As Long
  20. Private local_FieldName                              As String
  21. Private local_Value                                  As Variant
  22. Private local_Tag                                    As String
  23. Private local_Index                                  As Long
  24. Private local_MySQLTypeNumber                        As Long
  25. Private local_RealLength                             As Long
  26.  
  27. Public Property Get FieldType() As VbVarType
  28.     FieldType = local_FieldType
  29. End Property
  30.  
  31. Public Property Let FieldType(ByVal Value As VbVarType)
  32.     local_FieldType = Value
  33. End Property
  34.  
  35. Public Property Get FieldLength() As Long
  36.     FieldLength = local_FieldLength
  37. End Property
  38.  
  39. Public Property Let FieldLength(ByVal Value As Long)
  40.     local_FieldLength = Value
  41. End Property
  42.  
  43. Public Property Get FieldName() As String
  44.     FieldName = local_FieldName
  45. End Property
  46.  
  47. Public Property Let FieldName(ByVal Value As String)
  48.     local_FieldName = Value
  49. End Property
  50.  
  51. Public Property Get Value() As Variant
  52. Attribute Value.VB_UserMemId = 0
  53.     Value = local_Value
  54. End Property
  55.  
  56. Public Property Let Value(ByVal Value As Variant)
  57.     local_Value = Value
  58. End Property
  59.  
  60. Public Property Get Tag() As String
  61.     Tag = local_Tag
  62. End Property
  63.  
  64. Public Property Let Tag(ByVal Value As String)
  65.     local_Tag = Value
  66. End Property
  67.  
  68. Public Property Get Index() As Long
  69.     Index = local_Index
  70. End Property
  71.  
  72. Public Property Let Index(ByVal Value As Long)
  73.     local_Index = Value
  74. End Property
  75.  
  76. Public Property Get MySQLTypeNumber() As Long
  77.     MySQLTypeNumber = local_MySQLTypeNumber
  78. End Property
  79.  
  80. Public Property Let MySQLTypeNumber(ByVal Value As Long)
  81.     local_MySQLTypeNumber = Value
  82. End Property
  83.  
  84. Public Property Get RealLength() As Long
  85.     RealLength = local_RealLength
  86. End Property
  87.  
  88. Public Property Let RealLength(ByVal Value As Long)
  89.     local_RealLength = Value
  90. End Property
  91.